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This document is a ‘cookbook’ for applicati 1s programmers working with the HP-71. Two goals are 
envisioned: first to serve a8 a timesaver, and econd to suggest a measure of consistency among programs 
written for the HP-71. While there is no ope of addressing all possible applications on the HP-71, 
common subjects such as user interface, envir nment preservation, add error trapping are discussed, The 
specifics of each application are left to the pr: grammer. 
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Version Identification 





Any BASIC, BIN, or LEX file which is a. tikely to hit a wide market, b) not so trivial as to be 100% 
perfect, and c) likely to have software w itten to interface to it, is a candidate for requiring version 
numbering. Like the mainframe version n:.mber (eg: LEBEE), a version number is useful in identifying 
the version of a piece of software which mty go through several revisions. Service and support personnel 
may need to know which version of softwa:e is in use to help answer questions. 


LEX files contain a poll handler which an wers the VERS poll. For instance, the KE VROARD Lex file 
returns the string "HEI1: A". For more int mation about the VERS poll, refer to the Software faternal 
Design Specification, Volume J. 


BASIC and BIN files should include a si. program named ‘EP, that returns the version string. For 


example: 
SUB VERCAI® @ AF="G81" @ EHOSUB 


This occupies 34 bytes. A (HLL. stateme it may be used to determine the version of the software aa. 


follows: 
CALL ‘ ERCHE® It <fite name> 


Nonexecutable files (eg. DATA) cannot res.-ond to the VERS poll, or contain a subprogram. if such a file 
is revised, some method of identifying 1\e version should be provided, such as a cedicafed record | 
containing a version number. If a data file is in the HPAF format, a tag in the descriptor block might he 
used to contain a version number. Section | 4 contains a description of the HPAF file format. 
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The “working environment” defines the physi al environment, hardware and software configuration under 
which tasks are performed. This “environme at" may have varying impact upon software considerations 
For instance, if the HP-71 is being built into in instrument asa “front panel”, the hardware configuration 
is likely to remain fixed, with only dedicated ioftware in use. At the other end of the scale, a mechanical 
application program might be found in a .umber of different situations, from the classroom to the 
drafting table to the machine shop. In each (f these situations the number or type of peripherals attached 
to the HP-71 may be different. Software : rutines which produce reports may, under some conditions, 
need to be sensitive to varying configurations 


3.1 Printer Assignments 


When different printers may be used, a dis. inction between printer types is desirable. The following 
subprogram PRTYPE examines the current p: inter assignment and returns: 


A = 0. Where the printer is LCD, *, or there is no HP-IL interface. 


A = 1 Where the printer is a 24-colu an strip printer, or 32-column 
video interface. 


A = 2. For anything else. 


O$ = = Assignment string 
10 SUB FRTVPECA, DF? i. 
28 OH ERROR GOTO 156 vi 
30 AS=PEEKSC"ZETAC" 1s 2 TF BITCHTOCAE) .39: THEM 130 
40 PESTORE 10 & FRINT ""§ 4 
50 Ff=PEEKSC"2F794"53> © IF At="90F" OR ASE"FFF" THEM 130 
68 Rt=AFCS $C2,2)8F8C1,1] @ A=HTOCHF? Bia Wit 
78 L=A OLY 4+] @ IF A$(21="00" THEN 13d, ‘ 











if 





SO A=BINAHOCA, 31) +BINFINDCA, 292) DIY 827100} be 
a9 OF=PEEKS¢ "2F600",2> @' STL 4 ed 






iO TF Lol THEM G#=STRECADR' S "&STRECL> ELSE OF=STRECN* 
110 POKE "ZFE0C", OF ; sa 

12a GOTO 149 

{ga A=0 e@ Dt="*" @ GOTO 166 : ct 
140 ASDEYAIOCOS? | zt 

150 IF A=22 OF A=48 THEN Ast ELSE ARZ 
160 OFF ERROR & EME SUB 


‘ ale 


ime 


ane ws 
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Working Environment 


PRTYPE provides a non-intrusive examination of the printer assignment. The principal advantage is that 
output routines can customize themselves to the existing machine configuration without disturbing the 
configuration or asking the user any questions. Depending upon the result from a call to PRTYPE, the 
software may choose to send results to. the printer, or send a tine at a time to the display, waiting for 
keystroke between results to avoid hurrying the user. 


4 
} 
3.2 Required Modules 


} 


In cases where an application pac requires the presence of another module, a test should be made early on 
to verify that module's presence. This avoids the situation where an application halts at some line in a 
Program with a mainframe error, leaving the user suspended in an environment with little hope of clean 
departure. ‘ 


A simple test involves examining the string returned by the “ER function for that module. For 
instance, suppose you wish to verify that the MATH module is in the machine: 


a) IF HOT POSCVERS," MATH") THEN GISF “Ho MATH Pac{ @ GOTO 926 
. t 
3.3 Card Reader 


ea et 


if a card reader is required, its presence may be detected by examining location 2c01 4. A non-zero value 
at this location indicates a card reader is installed: 


leu IF PEER SC"eCO14",19=°6" THEN DISP "No Card Reader" 


3.4 Memory Requirements 


Calculatirg the amount of memory needed to run an application at any given time can be difficult. One 
procedure for estimating memory requirements na a trick: 


1) Execute aEHQ ALL and a CESTROY ALL to collapse environments and variable Purge 
any key assignments that may be established ue the program. ; 


4 





2) Do a MEN, and write this figure down. 


3) Run the application, and pause at a place you suspect takes the most memory. Do a MEM ‘again. 
| : 


The difference between the two results represents the amount of memory used by the program af that 
point. Next compute an overhead figure to accomodate unexpected events, such as interrupt processing, 
string operations, and 0 on... is fudge factor’ is an insurance policy against unexpected program crasifes, 
such as interrupts from oles pats, larger than expected baller requirements, and bad on. 


The "fudge factor’ may vicy, in: dae f from application ‘10 application. Actions that take lots of memory 

include concatenation of Targe strings, calls to user defined functions: FHACA; B, OF >, calls to other 
oy soa : : 

4 roy ae 
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Working Environment 


sub-programs, use of IMAGE statements, aid oppn fite channels. Some experimentation may be required 
to determine an appropriate ‘Sudge facto. In; previous applications, 300 bytes seems to have been a 
reasonable size. } 

4 . 

In cases where a file is to be added to mair memory (file? MATH), a check should be made to ensure that 
sufficient memory exists prior to creation. Simply putting an error trap around a (F'EATE and a MEM 
test afterwards has proven dangerous. Inst; aces have occurred where sufficient memory was available for 
file creation, but the program crashed imn ediatly thereafter due to lack of scratch memory for normal 
execution. The amount of available mem ry for file creation should be equal to the file size plus the 
"fudge factor’. : 
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SECTION 
User Environment Preservation | a 








Preserving the user's environment can be a tcirly difficult issue, depending upon the application. In the 
case where the HP-71 is being used in a ded cated environment, for one purpose only, there may be httle 
need to worry. In cases where an applicat in is being marketed as a general purpose solution, careful 
preservation of the environment is extrem: ty important. The HP-71 has many settings that control 
display altributes, math functions, and s0 9. These settings are ‘globa}’ in nature - they affect all 
programs and actions. In addition, variables . re global, so they might be used by the user to store persoval 
information. It is inappropriate to destroy th user's information. 


4.1 Variables 


The simplest way to preserve user variab -s is to run the new application in ils own subprogrein 
environment. Create &.subprogram with the .ame name as the user would type. For cxample: 


File: AUOTT 





140! AUDIT Copyright ¢c> LAP Imc., 1954 | 

26 CALL ALOIT 

28 Sue AUOTT 

40 1F MENS 208 THEM DISP MSGic24> & GOTO 3450 


34560 ENO SUB 


a t 
eae : 
In this case, the wr’ can press [RUN] when the file pointer indicates the file FILITID T, or he can type 
CALL AUOIT or RUM AUDIT. When! UGIT terminates, the user's environment ts restored, aleng 


with his variables. 
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4.2 Flags 


Although the application is running within its own environment, it ia vital to remember that system flings 
(-64 to -1) and user flags (0 to 63) are global ~ their states are the same regardless of which environment 
is active. There are two ways to preserve these flags - individually, or as & group. To preserve an 
individual flag, allocate an integer and store the old value of the flag there until it can be restored. 
Example: 


100) FS=FLAGS-1,12 Set quiet mode, saving old value in FS 
110 5=Tet Perform questionable operation 
120 FS=FLAGC-1,F5% Restore original value of flag -1. 


The system flags are located at 2F6D9 (16 nibbles), and the user flags are located at 2F6E9 (16 nibbles). 
The 1FEE traps are located after the flags at 2F6F9 (5 nibbtes). If an application is going to work with a 
largé number of system flags, they can be saved as a group: 


a CIM FEetlS3,F 74016), F 8405) To save RAM, dimension small strings 


8 
G 










100 FRS=PEEMS¢ "SF609", 5) Save user-settable system flags 
110 FYS=FEER SO "SFEES", 162 Save user flags 
12 FSP=PEERSC"SFEFO",S) Save IEEE traps 

-or- 
160 GIN Fee: Create on string for all flags 
110 FIF=FEER SC" SFROG", Sr? Save all flags in the same string 


When the program terminates, restore the flags with a poke: 


3940 FORE “SFEOS" FOF Restore original flag values 


Note that using FEEK and FOKE for preserving and setting numerous flags results in a significant code 


saving over the same procedure using CFLAG and SFLAG. For instance, if an application needs to assert 


quiet mode and continuous operation, leaving other system settings in their default (power on) settings 


HF SS=PEEK SC" 2F609",5) @ FOKE “2FE03"s "Seaag" 
~instead of - 


21 FSE=PEEKS¢"2F609",5) @ SFLAG -1 & CFLAG -2 @ SFLAG -3 
219 FOR [=-28 to -4 @ CFLAG I @ HEXT I 


} L ; : : Me Nee 
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4.3 1/0 Assignments 


If the application requires changing 1 'O assignments, the FRIHTER IS and OUSFLAY TS 
assignments may be preserved and restored 


To save: 
DISPLAY IS: 
PRINTER IS; 30 Pots EERO" ZFT 94's 7) 
KEYBOARD IS: ‘30 KGf= EEKSO"SFP3E"s 7) 
To restore: 


3400 Fo € 
aqia FOE 


s(t 


wc 
s 


DISPLAY IS: 
& RESTORE I" 





PRINTER IS: ‘9420 POLE “SFPS4" POF 


KEYBOARD IS: 2440 POE “2FPSB" EOF @ FORE "SF CR rs" 


Another approach to preserving the print ¢ assignment might include prompting the user fur alternate 
assignment. In the case where having an owe “human readable" representation of the printer assignment 
is desired, use the subprogram FR TYPE (ii chapter 2). 


4.4 Display Attributes 


Display attributes such as HIHQOW, ELAS WIDTHS! PHIQTH. and EMTL THE may be 
preserved and restored. Use FEEE and FO) (E to preserve these settings. 


cans 


Address Length Oesceript:on 


eravi 4 Window st ist and length 

2F946 4 Scroll and lelay rate timer 
eFo4F 2 Display w: ith 

2Fose 2 Printer wi. th 

2F9SA 71 ENDLINE length and characters 


(Lowercase mode is system flag -15) 
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4.5 Alternate Character Set 


Characters with ASCII character codes from $28 through 255 may be redefined by the user to represent 
alternate forms, or letters. If an application needs to define some alternate characters, any existing 
character definitions should be saved and restored. 


4.6 [ATTN] Key 


The {ATIN] key may be locked out, preventing the user from suspending the program. There are two 
methods of locking the [ATTN] key: redefining the key and using a PCIE statement. 


CAUTION POKE “ZF 441", "F" 


DISABLE: 


ENABLE: FORE "SF44i", "a" 


The PORE statement will prevent the [ATTN] key from suspending a program. In the event of 


catastrophe, an ItHIT? 1 will usually bring back the HIP-71. 


To prevent the [ATTN] key from suspending an executing IHFUT statement, use a COEF KEY 
assignment, eg: (EF BE "#42". ""'S . In this case the user's keys file will need to be preserved and 
restored. 
Past experience indicates that if the [ATTN] key is to be locked out, both methods should be used. 

‘ 
4.7 Numeric Settings 
The settings that control the format of numbers, F 1%, STO, and ENG may be preserved and restored. 
These settings are controlled by system flags. A quick way to preserve them is with e FEEE: 


250 FS€SPEERSC"SF60C", 2) @ STD @ AS=STRECG? © POKE "2F600",F5# 


4-4 


: c 
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4.8 Key Files 


An application that redefines the keyboard wilt have to preserve and restore the user's key definitions. 
Several existing paca have dealt with this i .ue: Finance, Curve Fit, and Text Editing In each case, the 
current keys (if they exist) are kept in a emporary file “SERKE''S". To prevent any chance of a 
program ‘crash’ leaving the user suspended v ith a redefined keyboard, restrict the duration of redefsnition 


as much as possible. For example: 














160 T=FLAGC~-1,19 B LL=FLAGS -9,1% ) Set quiet mode, weer mode 
110 FURGE USEREEYS © OM ERROR GoTo 124 ; 

1260 FEWANE KEYS TO USERKESS 

126 NERGE PACEEYS @ OH ERRO- GOTO 156 @ POKE "SF44qt° "Fr" 

144 GISF MaG8¢1693 @ INPUT 1 

150 OFF ERROR ® FURGE KE “OM ERROR GOTO 178 

166 PENHAHE WSERREY 

{78 PORE "“SF44i", "8", & 1 RPOCESS * 

ire Y GOTO 140 

isa 





This routine is useful when entering a strin or responding to hidden key definitions. Lor instance, with 
this routine the user could either enter a 5 cing, or press a previously defined key to branch to another 
part of the program. This is one instance here key definitions terminated with a colon '3' are very 


handy. Suppose the following keys are defin ed: 


GEF KEY ‘+, ‘addTait: 
GEF KEY ‘-'.’sub7i's: 

DEF KEY ‘fO',' 5 Lock . ut USER key 
GEF KEY ‘#50', ''s © Lock «ut (*] 

GEF KEV ‘SL's ' 3 Lock « ut [v] 


If the user presses the (+) key, 1§ would take the value 34471, and the display woukd remain unchanged. 
Likewise, if the user presses the [~] key, I$ -ould take the value Sub? 1. If needed, the contents of the 
display after the-prompt can be read = th OVSF# statement.. : 


In the above example, the U. ER mode key and the keys for the command 

stack have been ‘locked cut’. While each application has different 

requirements, there may be ¢ ie or more keys which should be locked oul to i 
provide a ‘cleaner’ interface. his merits careful examination. 


< 
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When defining keys for an application, keep in mind that a foreign language might use a different letter 
for a certain response, so M55 £ should supply the definitions. For example, if you want [Y] to display the 


word "Yes", use: 
410 GEF REY MSGSC14SHR 101, 11 MSGS CLASHES 5 
instead of: 


4 0 OEF KEY foe ; “ Vex “ : 


This technique depends on each option having a different letter for each 
response. When translating an application ensure that each command ina 
prompt begins with a unique letter! 


4.9 Manual Consideration 


While an application may preserve global system settings, it is still important to indicate their use in the 
owner's manual. In the event of a breakdown of the software, the user should be able to recover his 
environment with help from the manual. Information in the manual should include a fist of settings that 
are changed and a list of any temporary files that are created. 
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Prompts, status messages, and error messay s destined for the LCD should be easy to understand and 
spelled correctly. When shoriening a mes.age, do not introduce ambiguity by eliminaling tov many 
words. Also, to shorten individual words, on ( as few letters as possible. Try to avoid cryptic messages. tn 
addition, messages should fit within the disp ty window. 


Messages To The User 


p 
The following is a guideline for messages in he display: 
1) A question mark implies that so ae response is required: 


If a cursor is present. the entr. is terminated with the [ENDLINF] keystroke (such as file 
name entry). 


If no cursor is present, the first letter of each word denotes the appropriate key to press. The 
first letter should be capitalized the rest should be in lowercase. 


2) If a long operation is in progre: , a status message is suggested. No response is required. Vor 
long calculations, use “Working. .". 


3) Use mainframe messages at muc : a possible, or use similar internal words 


Some examples: 


Mork itig. o 


Status message 


Status message 


gees ae 


enu (no cursor) 


. 


Oata Edit Fit Quit? 


i 

: 
immediate executé 

* i 

! 





4 


4 
af 


z 


Prompt with cursor. 


WARHING? Low 


' 


\ 
Warning message ' 








Messages To The User 


WEES Undert bow Ford Warning message 





Toler anc Error message 





EFF: Insutticient Mer Error mewage 





Result 





Mf an application is destined for a world market, HMSG# should be used to generate all messages (and all 
comparison strings for incoming messages.) The M3G¥ keyword fetches messages from a LEX file table, 
allowing them to be accessed by number. More importantly, NSGE performs a translating function. For 
example, the message x 


Work img... 





could be displayed with: 


fen O1SF MS6 es pAdnse 


so that a localized Spanish language version of the application pac would display: 
= 


Traba dance... 





ee 
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Waiting For The User: KEYWAITS 


There are many circumstances where the }.P-71 is doing little more than sitting, waiting for a keystroke. 

During these times, the machine is still aw: ke, consuming battery power, while accomplishing little fos the 
user. A keyword called KEV HALTS is as ailable, and presents some unique opportunities. | EVWUAITE 
places the HP-71 into a low-power state | ntil a key is pressed, then returns that key in the same format 
asK'Ev'$. IMPORTANT: If the attention key is not disabled, KEYHAIT# will return “#4 5", but the 
machine will stil! pause. 


Example: 
S50 Kf=KE, Fo @ IF Kf="" THEN 250 


is replaced by: So8 KESKE WHAITS 


The key buffer can contain up to 15 keys +r keystroke combinations. The format in which the key tata 
is returned is the same as that for KE‘ #. ‘he string returned for a given key is determined as follows 


o Hf thore is a single ASCII chara :ter that uniquely identifies the key, FEVHMT EE returns this 
character. For example, & iden ifies the [Q] key and 4 identifies the [g]-slufted (QI key 


e If the key is an [f}-shifted 0. (g)-shifted key, and the key's primary function is uniquely 
identified by a single ASCII ch .racter, then REVHAITS returns a two-character string. his 
string consists of f or 3 follow :d by the corresponding primary character For example, «bas 
the [g}-shift of the [0) key. 


e If neither of the above apply,! E'‘WAIT# returns & followed by the decimal numbered key 
code for that key. For exampl REYHAIT£ returns,"#46" for the [RUN] key 


The LC statement does not affect the retur aed string. $ “4 


sz & : & ¢ Co 
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At first appearance, the 22-character d: play on the HP-71 might seem to be an obstacle to creating 
friendly menus. Actually the architectus: of the HP-71 provides for several possibilities Regardless of 
the specific application, option selection na handheld/portable environment should be reduced to the 
bare minimum of keystrokes. Prompts in : ve display should be as legible as possible 


7.1 Command Entrles 


When an application is command driven, - he Text Editor, for example), consistency in movement between 
states becomes of paramount importance. If a command is defined in some places as a handy ‘escape’ key, 
it should work the same way at all tices. Entries should be case independent if possible, so that 
commands work regardless of the case of he entry. Uf possible, build the display prompt with some ‘clue’ 
as to the state of the program. For inst. nce, the Text Editor uses different prompts between command 
and editing levels. 


Some examples: 


Input /Result 








Recording optian? Command prompt 





Command? Command prompt w/ status 


=s 


i 


Option Selection 


7.2 immediate Execute Menus 


When a tree-structure of options is used, immediate execute menus should be used. This reduces the 
selection of an option to a single keystroke. For example: 





Date Edit Report Quit? 










2 _ 3 [Weekly Monthly Yearly? 





Load Save Print Quit? 


In cach display, the key choices are indicated by the capital letters. Pressing the (D] key in the first box 
leads to box 2, and so on. In this application, Quit is the escape mechanism. In box 3, the (Q] key should 
also be active to enable a return to box 1, so as to be consistent with the other menus. An example 


implementation of box 1 looks like: 


CSF "Oats Edit Report Quit?" 
Fs CCERG! PROS CKEVHAL THe ot) 
OM oF GoTo 27a, CTA’ s ‘EDT’, RFT’, ‘QUIT! 





Notice that this handles an unusual circumstance with little extra effort. Suppose the user presses the 
attention key and suspends the program. When the user presses lf} {CONT} execution of Jine 280 will 
proceed with the result of KEYHAI TS being "HAS" The FS command will return zero, causing the 
branch to line 270. This restores the prompt in the display, so the users may’ continue without confusion 
as io where they are in the application. 


Some shifted keystrokes will return “f" or “g" as the First character of the 
result of KEVHAITS. If 'F* or "C;" are allowable keys, they should appear 
jast in the match string to avoid possible input errors. 


¢% 


€” 
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7.3 Fixed Optlon Menus 


Configuration of a device or a set of precon. itions for a calculation can be reduced toa few keystrokes by 
presenting @ two-dimensional picture of te options. This ‘picture’ would contain all available, fixed 
options. D 


For instance, suppose a multimeter is being configured for an experiment. There are four settings to be 
made: the type of measurement, accuracy cf the measurement, choice of input channels, and data rele 
Fach setting has a number of different opt ons. A common approach is to prompt for each setting. A 
faster method is to present a menu that can e¢ scrolled by the user. 


CURRENT OPTION AVAILABLE OPTIONS 


mma =s-—~ Resistance . Current 
Digits 4 Digite 5 Digite 
00 200 500 +000 $000 


Define the vertical arrow keys 17) & fv} 1458 and #51) to sctoll in wrap-around fashion between 
MEASURE, ACCURACY, INPUT, and DA?A RATE. Define the:horizontal arrow keys (<} & [>] (HS 
and 4:42) to scroil in wrap-around fashion | ctween the options at the current setting. 


ee 
Selection of an option could be made simply by leaving the option’) f the display, or requiring a keystroke 
to select the option. Another key would be .sed to exit the menu. i bn 
‘ ¥ : 


The user can now examine afl four settings and exit the menu wit four keysttokes. If the user wishes to 
alter just one option, the maximum number >f keystrokes ever nee - would be. 7, including the exit (rom: 


the menu! “ a 











Option Selection 
i . 
1 : oe : 
Suppose the user wishes to change the accuracy from 3 digits to 4 digits. In this example, a horizontal 
option is selected merely by being in the display, and the {ENDLINE] key exits the menu. The sequences 


on the left and right yield identical ‘results. The right column shows the user taking advantage of the 
wrap around telection of choices. . 


¢% 


MEASURE: Ohme 


v} Goto ACCURACY abetting [v} Goto ACCURACY setting 
‘ 


~_ 


ACCURACY: 3 Digite | ACCURACY: 3 Digite * 


Select 5 Digits option 


>] Select 4 Digits option {<] 


ACCURACY: 5S Digits | 


ACCURACY: 4 Digite «. 





‘ 


[ENOLINE) Exit menu 


Press any key to begin ¢ ? 


>} «Select S Digite!option 


ACCURACY: 5 Digits 
Exit menu 


[ENDLINE]) 


Press any key to begin 


TOTAL: Four keyetrokes Three keystrokes 


rel 
When the user returns to the menu again, the ‘accuracy’ wil be § digits. ‘ se 
Ge ie 4 
hy ihe : in? 
Note that an implementation of this technique can be smart’ For instance, suppose that the ma: imum 
data rate for 5 digit accuracy is 500 readings per minute, - If the user enters the data rate option, aBly the 
10U, 200, and 500 options are presented. If the user enters the accuracy option while the data ‘rate is 


2000, only the 3 digit accuracy option is visible. Possibilities abound! wn 








If an application uses a variety of comma: ds that must be obtained from the manual. or a possibly missing 
keyboard overlay, a help file deserves consideration. There are many ways to implement a help 
function ~ each application's needs will |: different. The following routine suggests one method. This 
routine reads lines from a text file, mak ng foreign language translation possible. In this example, the 
help routine is activated by pressing the (? key when a menu prompt is in the display 


126 DISP "Gats Edit Report Quit?" ° 
120 KE=UPRCECKEVHAITS) © F aPOSC "DERRY" KS 
240 OH P41 GOTO 158, 'GATA'. 'EOT', 'RET', ‘QUIT’, "HELP 





1400 'HELP': A=l @ H=16 ! HeHunmber of records im hele tile 
181G ASSIGN #59 TO “HELPTE 3T” 

1020 READ #89,A:Z% & OISFLAY 2F & EF=UPROSCKEYHAITT E> 

i928 IF k#="Q" THEN ASSICH #39 TO * & BOTH 130 

1a4G IF K#="#5a" THEN ASM OCA-2,HO4+1 ay 

1050 IF K#="#54" THEN ARMC OCA, NO +1 
16468 GOTO 1828 . 





Nole that if the application is driven fro. specific keys on the Keyboard, thejhelp routine above may be 
extended. For instance, if pressing the [Sv] key always triggers a specific aclion, such as computing an 
interest rate, the help routine could 'respo id to [W} In the above example, if the Sth record in the help 
file describes the interest rate calculation, ihe following line of code could be added: 





1055 IF K#="" THEN A=5 , : i ; 

. . : i 4! 
Clearly there are many possibilities for help files beyond this exariple. Experimentation isencouraged. If 
an application can be easily run without a manual and keyboard overlay,‘using just the built-in help 
commands, the user will spend more time thinking about the task'at hand, rather than computer scrence 


problems. 4 


Soi 


¢%* 


€«% 





. SECTION 


9 








Input Routines 


Standard input routines for an applicatio s reduce the chance of error, add consistency to a program. and 
make the programmer's job easier. Th. following input routines ace suggested for normal entry of 
numbers and strings. 


9.1 Cursor Control 


: 

When the user is editing an entry, the cu: :or may not be placed over characters in the display buffer that 
were written when the cursor was ‘off’. This technique is used in the implementation of the THe 
statement, where the cursor may not over ide the prompt. This may be used in the construction of crstom 
input sequences. 


To create non-editable ehavatiens in the display, send a ‘cursor off’ sequence before the characters tha 
you wish to protect, then send the ‘curso: on’ sequence. The ‘cursor on’ sequence ts CHR ST, 
and the ‘cursor off" sequence is CHEE CE 286". The cursor control characters are not counted in the 
96 character length of the display buffer. 


Section 9.6 has an example of protected fi -!d entry which uses cursos control sequences to enter a date. 


9.2 Numeric Entry 


This routine accepts a single number fro: the keyboard. For non-real data types, a declaration cf the 
type is suggested at the start of the progr m. Note that if the type of incoming data ts invalid, such asa 
string “=&4", the system error message will be displayed and the user will be prompted again Line 
1300 requires a quantity that is greater tl.in or equal to 1, and iajnot a Hatt or Int 

: i 
150 REAL @ : \ : 


ye 


i a 


OFF ERROR @ GOTO 1300 





Invalid Quantity": @ GOTH fern 
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If the application is going to have foreign language capability, the routine looks a little different. For the 
following example, assume that message 5023 reads "Enter? quantity?" 


OW ERROR GOTO 1% 
THELUT 









““ CHRECST OS" "EMSS CSBSSECHREC ST ORNS "GR 






CIS ERRMS @ GOTO 12380 
TF G71 THEN OSPF NSGs¢SG24) & GATTO L278 





The escape codes in line 1280 are used to turn off the cursor while displaying the prompt, and then turn 
on the cursor again. The trick is that when the user is editing the response, the cursor cannot be 
positioned over a character that is written to the display when the cursor is off. Allof this is done 30 that 
the user can pause the program with the [ATTN] key, press [f} [CONT], and get the prompt restored in the 
display. 


If a default answer is going to appear, say 24, line 1280 would look like this: 


1250) TMPUT 8" CHR ECET 8 "6 "2 MSGE (S023 98 CHEE COT IE 24" 50 


Enter quantity724 


Leftmost possible position for cursor 


NOTE 


For convenience and ROM savings, the escape codes can be imbedded in the 
MEGS message table itself. ‘ 


J 
a 


€”n 


ry 
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9.3 Numeric Entry With Option 


The Curve Fitting ROM has a situatios where the user may select a single row from an array for 
evaluation, or all rows as a group. A hybiid input module was devised which would let the user enter the 
character [A] to evaluate all rows, or ente the number of an individual row. Pressing the [A] key results 
in immediate printing of all rows, with no ENDLINE] keystroke required. 


The following code (altered slightly for th. example) was used: 








OrsF “ Alls) CHR? 
IF EEvE =" THE § 188 
OISP CHES« “3 @ OF UPR FEA" THEN bere 
FUT Wt 2? OH ERROR Goya tase 

IHFUT “"“SAR @ OFF ERR? ® GOTO 1nee 

QISF ERRNS @ OFF ERR: ® GTO 1808 

OCIS Ae STOF : 

OSPF “ALL" © STOP 


erase" &@ OF=KEVEEITS 





Line 1000 displays the prompt, turns the . ursor on, and waits for a key. If the (ATTN] key ts returned, 
indicating that the program was suspended the prompt is displayed again. 


Line 1020 turns off the cursor, and tests or the character "A" If the character isan "A" the propram 
branches to the module for printing all rov s in the array. 


Line 1030 places the character back in t.¢ input buffer, and uses an IHFUT statement to obtain an 
individual row number. If an error is encs intered, it is important to rebuild the Prompt, so the error trap 
branches back to line 1000. 


Experimentation with this technique is « couraged - it may be useful in simplifying user inter‘aces 


and/or reducing the number of questions 7: it to the user. 
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9.4 String Entry 
Entry of strings is similar to that of numbers: 


ian OM FIs) 


2170 ON ERROR GOTO 2198 
Zyan THEUT “LOAD File nane?"sSFs © OFF ERFOF @ GOT 
2130 ise EREMS @ GOTO 2150 


= TE LEMP & =a THEN QISe “Invalid Filesrec" 2 GOT 


=~ 


he 
th 
= 
m 


« 
fh 


o 
fs 
- 
“x5 
iS 


Or, for foreign languages: 






7a OH ERROR GOTO 
4 THPUT "CHR Me MEMSGS CSOZP ECHRECET END FFE 
OFF ERROR &@ GOTO 2216 

ma Cisr ERRMS @ GOTO 2180 

Sato IF Fge"" THEN CLP NEGEesa22> & GITO 2178 











Again, the same technique with the cursor used in the numeric input module is used for string entry. If 
there isa default answer, it may be included after the cussor-on command. 


€¢> 


ey 
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9.5 Yes or No? 


Answering yes/no questions should requi ¢ just one keystroke. If an application has many of these 
questions, a function may be created to sin: lify the process: 


6a CEFF FY CUES 
7O GISF oF & T=FOS¢ “Hey URE EVHAITECL, 2229-1 
A IF P<a THEN Léa 
m FMY=1 @ ENO GEF 





If the uses suspends the program during ths function with (ATTN, and then restarts, the prompt will be 
restored to the display. : 


NOTE 


For foreign lan uage purposes, line 170 might read: 


170 CISPR oe @ T=POSCMeG FEL S067 MPRCECKEVYHATTECL Pde 
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9.6 Protected Field Entry 


¢ 


Some entries, such as dates may require either a limited number of characters, or a specific number of 
characters. This may be made more apparent to the user with the use of protected field data entry. For 
example, suppose the user is going to enter a date. A protected field template may be constructed to 
indicate the number of required characters, as well as the sequence of month, day, and yeas fields: 


Oate?mm/dd/yy The user is prompted for the date. , 


‘The following routine may be used to set up the date template: 


1 OF TION BRSE 
GI PeC1tad 














Fw: he 
Tetiigy=" " 


IMEUT "", Les 08 
Oisr OF 


cr” 


Notice that I is (40 characters long. The cursor on and cursor off sequences are not included in the 96 
character count for the limit of the display buffer. 


The user may type over the characters (4, dd, and us only. The HP-7t will beep after the last ‘4 is 
edited, and the cursor will remain in that position. The cursor keys may still be used to edit the entry. 


cn 
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The IHLINE keyword (available in th: TUSTUTIL" LEX file) adds extended cursor control and 
extended termination capability for use input. Editors, menus, protected fields, and custom entry 
sequences are possible with INL THE. 


INPUT Alternative: INLINE 





Syntax 


INLIHE [ob oChy TH VEU VEU ¥20) 


Parameters 


The input tring (1 in the example) will appear in the display | Cursor 
control characters may be imbedded to contrat which characters avy be 
edited by tle user. 


input string 


The first c. aracter (1 in the example) is the index to which character on 
the input s.ring will appear in the leftmost position of the LCD window 
For instanc :, if the first character is 3, the third characters of PF would 
appear in I °D position 1. 


first character 


The cursor start pacameter (C1 in the example) specifies the starting 
location an.: type of the cursor. A negative value specifies the msert curser 
The express on must round to X, such that 1<caf[X]¢=96. 


cursor start 


The fermi. wor string (TE in the example) specifies which keys may 
terminate 1 put. Normally, only the JENDLINF] key will lerminate mnput 
from the }.:yboard (such as with the LHFUT statement) The HH THE 
keyword uss the terminator string to extend termination toa specified hist 
of keys. K.ysare specified by their physical key code, such as A+: for the 
{ATTN] ke. Keys are numbered! in row-major order, from 1 te 46. For 
[-shifted k ys, add 56; for g-shiffed keys, add 112. For instance. to allow 
terminatio: with the [ENDLINE} key and the vertical arrow kevs, the 
terminator tring would be " #2085081 tee 


terminator string 


} 

Upon term nation of INL IHE execution, the terminator variable (1 in 
the exampl:) contains a number indicating Which key the user pressed to 
terminate i put. If the key pressed was the second in the ferminator string 
list, the fer: sinator variable will contain 2. 


terminator variable 


OPTIONAL PARAMETERS = The follo ving parameters are optional, and need not be used. 


The cursor position variable (2 in the example) contains the (inal « urser 


cursor position variable 
position an type. A negative value indicates the insert cursor 


The windo v position variable (V2 in the example) contains a number 
indicating vhich character was in LCD position | when Prat Ve 
terminated -xecution. ‘ 


window position variable 


-4 





INPUT Alternative: INLINE 


NOTE 


The values returned in the cursor position variable and the window position 
variable are affected by the HINCIH settings. For more information, refer 
to the HP-71 Reference Manual's discussion of the HEH statement. 


¢™ 


LHL INE is a statement that extends the capability given in the HP-71's INPUT statement and EES 
statement. [HL INE allows you to specify: 


e The prompt string. 
¢ The number of prompt string characters to be scrolled off the left side of the display. 
e Where in the display the cursor is to come up flashing. 


¢ The type of cursor to appear (insert or replace). 


LEILIME allows the user to press any combination of keys for input and editing, just like the INFUT 
statement. While [HFLIT terminates execution only when specific keys are pressed (such as (ENDLINED, 
any number of different keys can be defined to terminate IHMLINE execution. When one of these 
terminating keys is pressed, IHL INE returns a number that indicates which key caused termination. 


LHLIHE wilt optionally ceturn additional values indicating the cursor position/type and number of 
characters scrolled off the Icft side of the display on exit. 


cv 


For increased customization, the input string may contain cursor on and cursor off characters lo make 
certain portions of the string are non-editable. For more on cursor control, see sections 9. | and 9.6 of this 
document. 


There are three additional timitations placed on the inpul parameters for first character, and cursor start: 


I Af first character is greater than cursor start, then first character is set equal to cursor start. 
2) first character is limited to 97-HTHDOMsize. 
3) If cursor start exceeds first character + MIMOONsize, then the specified cursor start takes 
precedence, and the first character is incremented until the cursor start character appears in the 
display window. % 
For example: \ 
INLINE At, 91590, THA oy 


According to #1 above, first character becomes 80, instead of 91. Then, according to #2 above, first 
character is further reduced to 74 (assuming the default WINCH size of 22). 


To illustrate #3 above: 


cr 


THLINE FE. 60, 95,7) A, 


—€ : C an | 
SBE BEEBE enn ee 2 2 2 22S = = 





INPUT Alternative: INLINE 


In order to get character #95 in the displ y window, character #74 is put in LCD position t. 
Example 


The following is an example illustrating he use of protected fields (non-editable characters) in the input 
string: 


C# = default input string 


Ef escape character: CHR ECE: 





INLINE Efs"SEnter Name “81 FR" MRO Be Sa by (HSERSORST HOE 


In this example the user cannot back 11 cursor up over the: prompt since the cursor was turned of f 
However, they can edit the default input string since the cursor was turned back on. The replace ¢ursor 
will come up on the fitst “readable” chars :ter, that is, the first character of CS. The first character of the 
input string will be scrolled off the left side of the display - this was specified by the first character 


parameter. 


IHLIHE will terminate on one of three keys: [ENDLINE], [up-arrow], and [down-arrow] Wf 
[down-arrow] is pressed, f1 will be Zone it. Mf the user typed ina five character name before pressing 4 
terminator key (assuming nv backspaces), & will be 17 on exit (the cursor originally came up on the both 
character and was advanced five position: |, and will be 2. 


Note that the cursor start argument “~ yunta"” readable characters only. Also, CUES “sees” readable 
characters only, so that a [1TSF'$ done ia the above example returns only the user input (including the 
default input), not the prompt iteelf. 


Note that the cursor position argument and the value returned in the first optional variable do not 
operate exactly the same way. The curso: position argument counts readable characters only, whereas the 
value returned in & (in the example abov ) reflects the total number of characters in the “free portion" of 
the display, readable and non-readable. 


Also note that because of unreadable c aracters in the display, the sbove example is not affected by 
limitation (1) on the previous page. Even hough the first character appears to be bigger than cursor start, 
because of unreadable characters in the d splay, cursor start actoally designates character 12 

‘ft 





wa 
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11.1 File Names For Loading 


i) 
An applications program may wish to ver: y the name of a file or subprogram that has been entered hy 
the user. The following routine is useful or trimming unneeded spaces and detecting invalid chara: ters 
in a file name F$ prior to loading data. 


IF F¥C1,135" " THEN F =F8Cs) @ GOTO Fenn 

I=LEMCFS> @ IF F&Cl)= " THEN FCT I="" & GOTO Fete 
J=POSCRS, "39 @ TF J= OR POSES," “> OR NOT T THEN regu 
GATTO F24n 

DISF “Invalid Filezpe :*" @ RETURH 

CISP “Losding..." @ 0) ERROR GaTO 7260 @ TF .I THEN Core 
AF=AOORFCF ES & GATA 7.78 

OSE “ERROR: File Mot Found" @ RETURH 

SSIGH #1 TO FS ..... 
















Line 7200 strips leading blanks, and line 7? 10 strips trailing blanks, leaving the length of the string I$ 10 
L. This will be used later. These lines may be replaced with the keyword TRIM E (described elsewhere 10 
this document) as follows: 


routs FE=TRIMECF SS @ T=, EMP ES 


In Jine 7220 the variable J takes the posits -n, if any, of a colon.!. Three tests follow, each of which would 
indicate an invalid name. The first is the : resence of an embedded space. The operating sysicm will only 
use the characters in front of the space, p: ssibly confusing the ustr. The first test looks for a null name 
before a device specifier. The second test ejects a name with an embedded space, even if an erperienced 
user understands the implications. The thi d test is obvious - ifithere are no characters in the name there 
is no file, right? Mostly. There is a bug in an carly release version (LEEBR) of the mainframe code that 
can damage the file chain if a file is accessed in SMAIH with a null name. IT IS IMPORTANT TO 


MAKE THIS TEST!!! 
NOTE 


This precludes one situation: that where a user wishes to load a file from 
LOCK, f the HP-71 is not a system controller, a different procedure 
will be needed. 
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The variable J is used again in line 7240 to decide if a file contains any device specifier. 
specifier is present, the file will have to be in RAM or ina port. 


An A=SIGH # statement will create a null Jength data file in main 
memory if the file does not exist and no device specifier ("S MAIH" is in 
the name string FS. If there is a colon in F$, there is no danger of creating 
an empty file. 


In order to prevent the creation of an empty file, the AOCIRS function is used in line 7250 to verify the 
the string FS, and will yield an 


file’s existence. Line 7250 actually plays a dual purpose. First, it parses 
error if there are any strange characters present. Secondly, if the file is not in memory, 
occur. Both errors result in a return with an error message in line 7260. 


Again, the use of M2GF is encouraged in place of fixed error messages and prompts. 


¥. 


2 ame Rei 


eee 
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If no device 


11.2 File Names For Saving 


The following routine is useful for chec ing file names when saving to a data file. It bears much 
similarity to the routine used for loading. The routine assumes the file name in Ff, the desired number 
of records is in Fi, and that the number «f bytes per record is in H. Note that 1940 and 1950 can be 
replaced with TF IM#, as shown earlier. 


IF FSC1,22=" "THEN F Ci,1)="" & GOTO 1349 





1948 
an error will i> I=LEMCF > @ TF FECTI=° “ THEN FeC1J="" & GOTO 1350 
13 J=POsCR#, "9" @ IF Je 


oF HOT 1 OF POSCFS," "* THEN 


19760 ELSE 1320 


1970 GIS "Invalid Filespe “ & RETURH 
i DISP "Saving..." @ GH ERROR GOTO 2a0G 
15 CREATE CATA FEH,R & CSSIGH #1 TO FS @ OFF ERROR 2 GTO 





eae 

IF ERRHAS? OF ERRHAIG 3 
THEH 2asn ‘ . 

IF MOT FAY C"Querurite file CheHs 
OISsF "! ima. @ FU GE FF 

OM ERROR GOTO 2a50 

CREATE CATA FS,H,R 2 ISSIGH #1 TO F% @ OFF ERPOF oun 
Sheen 

OFF ERROR © GISF ERRMr @ RETURN 

IF MEMS 380 AHO HOT HEH FURGE FS @ GISP “Inzut ficient 
Henera” @ FETURH 


OF ERRM #255620 0F ERR dosed an 
7") THEN RETHEN 








ry 





This routine accounts for null files, dup! cate files in both ram and on a device, and for insufficient 
‘ memory in either ram or a device. The ro: tine FH's) may be found in the chapter “Input Routines” FAY 
returns a one for yes and zero for no. : lotice the offsets used. with EFF that account for foreign 
language localization. Further informatio. on errors may be foubl in the chapter “Feror Messages”. trror 
$9 is the mainframe error for File € xists”, as is 255030 for HP-IL. Errors 1059 and 2551S 


M3 account for localization of the ‘File E> ists" error. . . 
if a melt 
. f 4 oy 
' ih ie 
. i ae 
2 ck 
& a 
' 
t 
- ea 
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11.3 Names Of Subprograms 


Verifying the name of a subprogram for existence is similar to the system used for checking data file 
names. First, the name is checked for valid characters with AU #, and then a dummy call is made with 
intentionally mismatched parameters. The resulting error message will either indicate that the 
subprogram is not present, or that it is there, but the parameters do not match the teat. This routine 
assuines the subprogram name in A1§ and the file name containing the subprogram in A2$. REMEMBER: 
the subprogram name can be the same asa Pile name! 


OM ERROR GOTO 21h @ CU SADDRECALe> @ GOTO Sede 

OFF ERROR @ IF ERRHESS OF ERRH=105S THEN OISPF ERRME 

f RE TUR 

ON ERROR GOTO 3050 @ OS=ADDRECA2S) & GOTO 3nbG 

OISP ERRMS @ RETURN 

OH ERROR GOTO S070 @ CALL ALS (Hal. Halls Halts Nah, Nats Malt? 
IW ASE 

WEF ERROR @ IF ERRH=36 OR ERRH=1956 THEN 3090 

OISF “ERROR: “SERRME & RETURH 








rr 


cr 
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Output routines on the HP-71 may take a wide variety of forms, using everything from the 22 characters 
in the display to 80 column printers. Reg. rdless of the specific form selected, it is vital to insure that the 
user is able to view the entire result, with ull relevant digils of the mantissa and (if applicable) the entire 
exponent. Further, there should be no time pressure on the user. 


12.1 Configuration And Data Volume 


Output routines should be sensitive to bot! the volume of data to be presented to the user and the system 
configuration. If varying configuration are anticipated, multiple output routines are suggested to 
maximize legibility of the results and usab. ity of the software. 


Results best expressed in tabular form may need one routine for the LCD or strip printer, and another for 
wide output devices. 


Unless specific configurations are going to oe used, use of specific printer features mus! be evaluatcd with 
care. {f an oulput routine depends on such features as vertical half spacing (for superscripts and 
subscripts), the application will not run w th conventional printers, such as an HIP8290SB. Conventoonal 
printer features such as form feed capa ility are generally acceptable. When in doubt. check the 
capability of several possible target printe: ; for common features. The subprogram FF IEE can be used 
to determine what class of printer is assign: d. 


Output routines should us: FR IHT statements, while message routines 
(such as prompts, warning: and errors) use (ISP statements. This will 
insure that the user's PRL TER 1% assignment. will route the output to 


the desired location. 4 
the 
t 
* ! 
The following table may be used to.hel, select a suitable output routine given varying results from 
PRTYPE: f 23 
i 
PRTYPE REPORS WAIT? 
0 Narro?/ Yes 
1 Narre? No i 
2 Wide No 





Output Routines Output Routines 


12.2 Some HP Printer Features 12.3 Multiple Results In The LCD | 


“ 


For reference, the following table contains a listing of common printer features in the HP product line, ; ; 
and the escape sequences Hee enable them. ” Results presented in the LCD are eapec ally vulnerable to being fost or forgotten. Since the user may at 
any time answer the phone, sneeze, or f + some reason look away from the machine, a result must he held 


in the LCD until reciept of the inf rmation is acknowledged. A simple way to do this is fo call 
KEVHRIT4, and then continue. 














OPERATION FEATURE ESCAPE SEQUENCE PRINTER t ‘ “ sie < 
If a fong string of results is anticipat.d, a method of scrolling back and forth through the results ts 
én CHR$ (13) 1,2,3,4,5 suggested, along with an escape method The following routine assumes that the results are in an array A, 
, : with 9 answers, and their titles in a me age file from positions 17 to 2§. The EEX ID of the messege file 
Formfeed CHR$( 12) 1,2,3,4 an 
Linefeed CHR$ (10) 1,2,3,4 
eho W aa @ OF=FEEK CN er: 46",45 ®@ DELAY G.@ 
k 1,2,3,4 : i 
Backspace CHR$ (8) ’ Sines GELAY 
Vertical 6 L/Iin ESC &16D 1,2,3,4 ate SP SG ote nee 
Spaci 8 L/K SC &18D 1,2,3,4 niet Veh W Ga 
pactog ie noe Hats IF GSR"#3S" AND OSH WS1" THEN 2050 
ettovetion On ESC &LIL 1,2,3,4 . IF H=2S THEN BEEP @ GOTO ence ELSE HeN+! @ Ged ane 
Skip orr ESC &LO1 1 23 4 IF G¢e"850" THEN 2m 3 
yest t ? IF H=i7 THEH GEEF & GOTO 2026 ELSE N=H-1 @ GOTO Sri 
he iwek reel ESC &kOS 1.2.3.4,5 IF G¢="#162" THEM Hei? &@ GOTO 2a1a 
Print Expanded ESC &KIS 1:2.3.4.5 IF @¢="#163" THEN He 25 ® GOTO calla 
: THEN Sez 
m . 4 IA. ae: ro RY 
ede ee ee cuss ar a46",08 @ RETURH ! Restore DELAY and SORT 
Emphaeized ESC &k9S 1,4 
gee icra oe oy ise ea The routine will advance to the next res It when either the (v] or the [ENDLINE] keys are pressed If the 
g i {*] key is pressed, the previous resuit will appear. The (gI*] and [gly] keys go to the first and fast results 
: The [Q] key exits the routine. If the use: attempts to go eeyond = of range, a beep sounds 
tots 2 * A 
Printere: 1=HP82905B 2=HP2671 3=HP2631 4=ThinkJet 5=HP82162 The use of EES HAI TS can go even fur her in the case of a large table that hhs been generated Suppose 


the program creates a table of results, ard the user may only be interested in a subset of the results. One 
way to address this issue is to ask the u:er for the location in the table that he wishes to view. Another 


\ = scheme might be to place the user “in the table", and let him move about with the arrow keyqyin a 
: two-dimensional version of the routine presented above. i i 
{ ; i o 


a 
+ 









Output Routines 





; 


cy 


} 
12.4 Large Results In The LCD 






If a cesult is simply too large to fit within 22 characters, scrolling the display is the last resort. The best 


way to implement this is to preserve the display, set OELAlY 959 and call KEYHAITS. The following 13.1 Changing Array Sizes 

routine illustrates the technique: j i 

148 OM AtC1OD) The size of an array may be changed with a new CIM statement. This can only be done in the Originating 

2o AS="LEJIADLKJOSFOGARBAGESE TJLEWLHOSY HOT" : environment. Data is stored in row majo: order and is not zeroed out during redimension. The foliowing 

SO OF=FEER SC "SF 946",4> @ DELAY 9,9 paragraphs address techniques for changit , the,size of arrays. The examples use an array A with R sows 

40 DISF “Hanes “SHE & GE=KEVYHAITE © POKE "ZF946", 08 and C columns. The array is of type REt L, and a 300 byte ‘fudge factor’ ib used Variables Tand 5 are 
3 scratch integers, and the array isin GPTI1 0H BASE 1. 


Another approach to the scrolling technique “windows” the title: 









l 13.2 Adding And Deleting Rows; 
10 CIM AS01827 | ' 
20) AES" LUE SOAFLJESOLUKSOF LIUHEEL JESOFL JK ISK. JH" \ 
20 FO"SF3946".4> B OELAY 9,9 Add a new, empty row at N: 
40 i “ @ WINGOW ° & DISP AF : ‘ 
SO OF=KEVYHAITS @ MINGOW do @ PORE "2Fo46", 08 
j 1600 IF MEN-C 42° 306 THEN CISP “Insufficient Men" @® FETURH 
¢ » 1610 TF Ho1 OF MOR4+L THEN DISP “Nonexistent Rou" & PETUPH 
: 1826 OISF "Werking..." @ FeR+1 @ GIM ACR,C) & IF H=k THEM FETUGH 
. 1025 FOR I=k TO M+ STEP -1 @ FOR J=1 TOF 
é 10409 ACI,J9=ACI-1,.09 @ NEST J @ HEXT I 
12.5 Numeric Formatting {O58 FOR T=1 TO C @ ACH,I>=8 @ NEXT I @ RETURN 


Delete a row at N: 
Numbers that occupy a very large dynamic range (say, a hundred orders of magnitude) will present a 


challenge when presenting results in the LCD. If the title for the result is very small, there may be room ve 
in the display for both the title and the number as displayed in STO! format. If there is doubt about 1600 IF Hil GF HOR THEN OF 3F “Nonexistent Rou" &® RETUFT 
available room, an IMAGE statemént is suggested. The disadvantage of the IMAGE atatement is that the 1810 IF F=1 THEH DISF "ERROR: You Meed 2 Row" & EE TUEI 
user's display digit setting is overridden. / 1828 GISF "Working..." @ IF M=R THEH 105@ 
se \ 1436 FOR [=H TO F-1 @ FOR J=1 To Cc , oe 
were ’ Nea we 1640 ACT, O=hCI+1,0)9 @ NE? T J @ HEXT I | } Ltt 
ht . ‘ 1BS6 R=R-1 © OIM ACR,C)? @ RETURN RI ale we 
oe he, troy My nae 
| foe: ‘ee ! i! . iil 
t 2 A 
! oe . ve 
' ‘ 3 
1 : Pe 
. yt ¢ 4 
! Li 
7 ‘ t w~ i ' 
uy vA 


ea 


internal Calculations 


13.3 Adding And Deleting Columns 


Add a column at N. The data will be scrambled after the DIM is executed so a shuffle must occur. Data 
is moved from positions at T8,T9 to new locations G8,G9. The pattern works backwards, shifting data up 
to fill the new top locations, straightening out the columns, and setting the new column to zero. 


1900 IF MEM-R#S¢200 THEH OISF “Insufficient Men" @ RETLRH 
1910 IF Wed 1 THEH GISP “Honexistent Col" & RETURH 
Heo OLSF "Morking..." ®@ C=C+1 B OTM AGRO) 

SG8=F @ G9=C-cCSH) &@ Task TSS 
FOR T=1 To Roe T3=T3-1 © TF HOT 
HET I 

HOGS, GI=ACTS, 79) 

1 T2=T3-1 @ IF HOT T9 THEN T9=C eB 
GS-1 B OTF MOT G2 THEN Gast @ 








inn TS=TS-1 


T? THEN T3=C 2 
105 a) : 









ay TF tT GS THEM 1h 
1c IF H THEM ACGS.Go928 8 OT 1ne8 
1110 TF 8 AHO Taso THEN Pen 


4c FETURM 


Delete a column at N. Again, the date will be scrambied, 90 a shuffle occurs in a similar manner. First, 
the data is column shifted so that the column to be removed is the last one. Then the data is shifted down 
starting at the front and working up. The last locations in the array will be lost when the dimension 


statement is executed. * 
1008 TF M1 OR NEC THEM GISP “Honexistent Col" & RETURN 
iain CISF “Marking...” @ TF Hel THEN 1e4e 


FOR T=1 TO Rk @ FOR J=H TO C-1 

eT, JeeAe ds J4t> &@ HEXT UG @ HET I 
1d Gh=1 % G3=1 @ Ta=1 8 T9=1 

pas Fk: l=! TO PR @ FOR wt=1 TO C-1 

ier) GE,G9 .SA¢7T8,7T3>) @ Gaz G+] 2 - Gaee 





THEN G?=1 





T92T9+1 @ IF TSC THEN T9=1 @ Ta=Te+t 
HEAT J @ T9=T941 @ IF T9>0 THEN T9=1 @ 
19) EXT 1 @ C=C-1 @ DIM ACR,C® © RETURN 





T3=T3+1 





r* 


cr? 


cr 








tian 
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Error Messages: MSG$ & Translator 


14.1 MSG$ 


The MSG keyword provides retrieval o error message text from the mainframe, plug-in modules, or 
LEX files. Each MEG£ LEX file should . ontain prompts and messages for an application program. This 
leaves a hook for foreign language transla ors to work with. The syntax for the keyword is: 


ME. £¢ numeric expression) 


The first three digits of the message num er contain the LEX id, and the second three digits contain the 
message number. Leading zeros may be su opressed. As an example, suppose the 21st message of a FEN (ile 
id 94 is needed: AF=NSGF 6 94021). 


The H3G# keyword will work with trans ators. If a transtator is present, MSGE* 2-4) would return the 


same message as M2G#¢ 1024 if a mai: (rame translator is present. 


The heaviest use of 2G will be to displ. y prompts, error messages and status messages in an applic ttion 
package. MSiG# used in this way allows c stomization for foreign languages. Keeping messages ina EEX 
file message table may also save ROM spac -. For example, if your LEX file number 1s 17, use 


7O TMPUT “" Mec tC 1h FOO sa se 
instead of: 
FA THFUT PMs CHR ECE TE color 2"ecHRE a7 49 vey 


a 
which will allow other language transla: ors to handle the prompt. 


Other examples are provided én 
previous sections. : 


The MSG keyword is in LEX file 82. Tie use of MSGE ina particulier pec requires a LEX file wha 
built-in message table. This can be constructed using the HP-71 IDS votume Tas a guide 


‘ 
> 


a" 


= c aot 





} 


_— 
( &  ¢ 


wm 
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Errors Messages: MSGS & Translator 


' 


14.2 Translators 


A translator is a LEX file whose sole purpose is to translate messages from the resident English to a 
forqign language. These LEX files are composed of tables and « poll handler which intercepts the pMEM, 
pERROR, pWARN, and pTRANS polls to substitute alternate message numbers. 


The following convention has been set up to facilitate error trapping with language translators. 


For mainframe messages: 
Translated message number * ER PH + LG 
For other LEX files: 


ale 


Translated message number = ERFH HIS 


For example, mainframe error $7 is "File Not Found”. If an OH ERROR routine is trapping for this error 
and must allow for foreign language messages, the appropriate statement is: 


IF ERRMES? OF ERRH=1057 THEH .... 


The HP-IL. error 255031 is “Directory Full". If an GH ERROR routine is trapping for this error and 
must allow for foreign language messages, the appropriate statement is: 


IF ERRH=255031 OF ERRHSS55159 THEH ..-. 
This extended error trapping can be shortened with the user-defined function: 

CRF FHECHO= CH=ERRH® OF CHEERRN LSS +0 Xs 168G)*872> 
and the previous two examples above can be compressed to: 

IF FHESSrs THEN eee 

IF FHECe559312 THEW .... ; 


cr 


cr 


cr 


™ 
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Speed and Space 


The disadvantages of packing code need |: tle enumeration: the risks are extreme. Hf packing must acur, 
caution is advised. If a working progran is being packed in order to fit into available ROM space, we 
suggest that the author maintain a very c mplete audit trail. Some packing techniques actually inprove 
speed as well, however combining code in o user defined functions (IEF FHA® 5+) can slow down the 
program, as additional time is required by the operating system to set up the call to the function. This 
slowdown can be up to ..6 second for a fun tion, and | second for a subprogram. 


15.1 Varlable Names 


Single letter variable names save a byte | r each reference, and slightly improve speed. Large grours of 
variables under one letter slow down the + ‘arching. For example, it would be better to use variables A, fi, 
C, and D than CO, C1, C2, and C3. 


15.2 Line References 


When entering a label reference, such asf; JT) HELF, don't enter the quotes. This will save a byte The 
quote will appear on decompile. Rememb r: if you edit the line Sater on, use the (- CHAR] key to avout 
re-entering quotes! 


A GOTO pointing to 2 line that has a sit gle letter label will save a byte as compared to using a O'tTH 
pointing to a line number. This works be t in instances where many GOTO statements refer to a sngle 
line. 


Don't use G07 after THEH of ELSE. Simply use the line number or or a tabel. 


a 


eee iF 


15.3 Multi-line Statements 


Multi-line statements save two bytes fore ch line number saved. 








Speed and Space 
15.4 Loops 


Fre... TEST loops can be a source of speed improvement under some conditions. For instance, 
suppose each element in a § by 100 element array is to be incremented by 3. The following two blocks of 
code would do the same job, but the one on the right would execute faster. 





100 FOF T=1 TO 1409 198 FOR J=1 TO 5 
110 FOR J=1 TOS 119 FOR I=1 TO 198 
120 ACT, JSnC1, J9+8 120 ACT, DSACT,J94+3 
130 HE od 126 HEAT I 

140 WENT I 140 HEST J 


The speed increase comes from the inner loop having less stack searching to perform for each NEXT 
statement. 


15.5 Clearing Arrays and Strings 


Numeric arrays may be cleared (all elements set to zero) very quickly by DESTRE ing them and 
executing a new LIEM statement. The operating system defaults all elements to zero. 


In cases where a long string is to be set to spaces, a similar technique may de used. For instance, suppose a 
100 character string of all spaces is needed: 


rage o¢s"" & Grliaaj=" " 


The operating system will "pad" the missing characters from the beginning to 99 with spaces. 
15.6 Logical Expressions 


Logical expressions can be very useful in constructing numeric expressions, and generally save code. 
Logical expressions return a | or 0 depending on the evaluation of a comparison. For instance, 


Use: 109 H=R-CV=7 OF LEHCK#2> 


Inetead of: 100 IF Y=7 OR RA8"" THEN X=2 ELSE x= 





cr 


rr 


Speed and Space 


15.7 Device Addressing 


Addressing devices with the HP-IL modu e may be accomplished with a variety of commands. Generally, 
as the ease and luxury of the addressiry mode increases, the amount of work the HP-71 has to do 
increases. The following table illustrates tne relative times required to address a device as compared other 
addressing methods. 


METHOD SPEED 


(: LOOP) Fast 
«addr> . 
$50 

DISPLAY 

HPB2905B 


Volume Lt 061 Slow {Limited by media access times) 


The fastest method of addressing a devic - is by ils address on the loop. The loop will slaw down ae the 
number of devices present increases, and Jepending on the type of devices and their response tines, the 
rate of increase in addressing times may |: non-linear. A simple way to maximize the speed of aiticewsaing 
is to search once for the address of a di vice, and save that address in a variable for future use un the 
program. For example: 


106 R=DEY OR "HRSZ164A" » R © Address of RS~ 232 interface 


1200 GUTF IT tRsT# #@ ENTER fF OUST FRG OTF 


, eee 


S450 OUTFIT tR308 & RETURN 





rf» 


rn 


cr 
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HPAF File Standard 


The Applications File format (HPAF), is intended to allow exchange of data between various programs 
The format provides room fur inform: tion that describes the structure of the data, so that various 
programs may make use of and exchange the data. 


HPAF files are of type QHTA, and may reside in either the HP-71 or a mass storage device, such as the 
HP&2161A digital cassette drive. 


The HPAF files are composed of thre: major sections: a header, the data records and an optional 
descriptor block. An example of sucha fc looks like this: 


Rec # Contents Description 


O | “HPAFNNS” Type string: two numbers, one string 
1 4 There are four records of data 
2 12 The descriptor block starts at 42 
3 | 77,9.3,"RED" First data cecord 
4 | 78,9.4,"BLUE” es 
5 81.5,10.3,"GREEN’ oa 
6 | 82.9,10.4,”"GREEN” Last data record 
Empty data records 
oe Empty data records 
12 “COLNAMS" ,3, “TEMP” Descriptor block 


“VISCOSITY”, “COLOR ° 
“DEGREES” ,1,"KEGVI I" 





The following sections describe the heade , the data records, and the descriptor block 


Ind 





UPAF File Standard 


16.1 Header Information 


The header must contain the following items: 


1) Record zero contains a type string. The type string serves two purposes. The first four 
characters indicate the file ia a HPAF file. The remaining characters describe the number of 
data items in each record, and their type. For example: HFAFHHS. The characters HHE 
indicate that there are three items in each record: the first two are numbers, and the third isa 
string. 


2) Record I contains the number of data records that contain information. This number may 
be Jess than the total number of available records, allowing room for additional records to be 
added later, or the optional descriptor block. 


- 3) Record 2 contains the address of the optional descriptor block. If no descriptor block us 
present, this number should be zero. 


16.2 Data records 


The data records begin in record 3, and must end before the descriptor block. Note that all data items for 
each record must fil within each logical record, so that any record may be accessed randomly. To 
compute the optimal logical record length for the file, remember that esch number written in the record 
occupies 8 bytes, and each string occupies 3 bytes plus the number of bytes in the string. In addition, there 
must be one byte for the end of record mark. For example, if each record is going to hold two numbers 
and a ten character string, the record length must be at least 2*8+3+10+1, or 30 bytes. For more 
information about creating DATA files, eee the HP~71 owner's manual, section 14. 





Neos, 


HPAF File Standard 


16.3 Descriptor block 


The descriptor block is optional. The descr: stor block must come after the data records, and record 2 must 
contain the address of the first item in te block. Information in the descriptor bluck consists of tags 
which identify the type of information th. t follows, followed by the number of items associated with the 
tag, followed by the items themselves. Th tag must be a string, the number of items must be a number, 
and the items must be strings. Hf nur.eric values are to be in the items, they should be string 
representations (3 TR4). 


tag, numbe: of items, item one [item two...] 


The information in the descriptor block m. y be written serially, or, if the logical record size is sufficiently 
large, written one tag toa record. In eithe case, the deaceiptor block must be able to be read serially 


For example, to describe the names of the columns, a temperature offeet, and the fact that the 
temperature units are degrees Kelvin, the « -scriptor block for the file might look like this: 


Rec# File contente : Commenta 
_—_— 
67) "“COLNAMS”,3, “TEMP” "VISCOSITY", “DENSITY” Column names 
“OFFSET” ,1,°2. 172” Offset 
“UNITS”, 1, "KELVIN" Units information 





(EOF) 


~ = esl 
\ } : wr v J ae ’ een rey gr —— oreenemeenet ; + seeerrcet 





rr 
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String Functions 





The LEX file STRINGL provides 1 key vords that enhance the string manipulation capabilities of the 
HP-7!. 


17.1 MEMBER 


The MEHEEF keyword returns the location of the first character in a subject string thal isa member of a 
set string. 


Syntax: 


MEMBER® subject strings: string [.starting position)? 


Examples: - 


NEMBER CAE, “ALSS4' Bao" 
Returns the location of the first numeric character in AS. 


NENBER SAG, "Q12345 6759". 129 
Returns the focation of ist sumeric character at/after position 42 


B=HCMBE RAE BFC 


& 


String Functions 


17.2 LTRIM$, RTRIM$, TRIMS 


These keywords trim specified characters from the ends of string arguments. LTRIWE trims characters 
from the left end, ETR IM trims characters from the right end, and TRIMS trims characters from both 


ends. 

Syntax: 
LTRIMS « string expression [string expression }> 
RTRIME€ string expression [string expression] > 


TRIMS < string expression [string expression) > 


The first string expression contains the string to be trimmed. The second, optional string expression 
specifies which character is to be trimmed, if found. Only the first character of the second string 
parameter is used. The default is to trim spaces. 


Examples: 


LTRINE"hhhpeace on earth", "h")> 
="seace on earth" 


LTRIMSE™ atecd "% 


e"atecd " 


RTRIMEC "peace on earthppe","p") 


RTRIN¢¢" ate “3 
" ="seace on earth" 


="" sbre" 


TRIMS" aber "> TRIMS: "zzzpeace on earthz","z") 
=" abod" ="peace on earth" 

otk : 
TES TRIMECGED ee 





er 


String Functions 


17.3 LWC$, LWRC$ 


These keywords convert all uppercase chara -ters in a string to their lowercase counterparts. The keywords 
are identical except in name. 


Syntax: 


LUIS string expression) 
LWEC$ © string expression? 


Examples: 


Lucee "THIS 15 1) ICE") 
="this if nice’ 


AF="THIS IS WHILE" 
DISF AF 
"this is nice" 





String Functions String Functions 


17.4 REV$ 17.5 ROT$ 





This keyword reverses the order of the characters in a string. 
This keyword rotates the contents of a str ga specified number of places to the right WU the number of 


spaces is negative, the string will be rotated +o the left. 





Syntax: 
FE £¢ string expression?! 
: Syntax: 
FCITS © string expressionnu: veric expression ‘s 
Examples: 
REVS "palindmrone"> 
="enordni lar” Examples: 
AF=FEVECBES ROTHEC"LSS4S"5 19 ROTHsC"12345",-1% 
a"Syesd" ° ="23451" 


1 
FE=POTECDE. 5 


“y 


An address stored in memory is backwards when obtained with a PEEK. FE £ is useful when converting 
the address into decimal: 





CLSE "The decimal address is" HTOCREVS CFEERS("2FE47 "993 > e 8 
igh 
8 ie és 
4 of +: oan! 
4 er i at 
" 4 a - 
Ne “oy. 
¥. ae 
: iH 





String Functions 


17.6 RPT$ 


The FET keyword concatenates multiple copies of a strin 


string. 


Syntax: 


Examples: 


EFT £( string expressionnumeric expression * 


RETHENN", 4) RPT#¢ "FRED", 2> 
2" XRKH" ="FREOPREOFREO" 
La 
Ve 
ae 
yet 
' 
| 
{ i ! : ' a 


g expression together to form the resulting 


rr 


String Functions 


17.7 SBIT 


The 2BIT keyword returns the value of a specific bit in a character string. [It is most useful when 
analyzing the contents of the HP-71 graph cs display. 4 


1 
4 


Syntax: 


SEL T« string expressionnu serie expressionnumeri¢ expression? 


The string expression ia the string to be ex: mined. The first numeric expression specifies which character 
to examine. The second numeric expressio: specifies which bit in the specified character to examine Fits 


are numbered 0-7. 


Examples: 


E=SBITAGOISP#, 1, 3 Returns the bit value of the upper left 
pixel in the display. 


ITCASS Ny 49 Returns the value of bit 4 in the Nth 
character of the string AS. 





“ 


PER ees > - 
a fede ne 


y. i 
a. arte 
eh {ne 
¥ feos 
£4 yk! 
eo ty 
a “4 
: " d 
. ny i 
é wih 
4 i \ 
4h 6 : , 





String Functions 
17.8 SBIT$ 


The SEIT # keyword allows enhanced bit manipulation of data in strings. 


Syntax: 


SELT£& str exp, num exp (num exp(.num exp}]* 


The first numeric expression specifies which byte in the string is to be modified. Other bytes in the string 
will be unchanged. 


The second numeric expression specifies the bit to be manipulated. I not present, the byte specified by 
the first expression will be complemented. Bits are numbered 0-7, 


The third numeric expression specifies the new value for the bit specified by the previous numeric 
expression. tf not present, the bit will be complemented : 


Examples: 


SBIT#OAE, 
TT#iFe S 


Complement the fifth byte 
Complement the bit one of byte 3 
Clear bit Jin byte N 









er Dd 


String Functions 


17.9 SPAN 


The SFAH keyword returne the location o first character found in a subject string that is not e member 
of a set string. 


Syntax: 


SPAH« subject string.set str ig {starting position) >. 


Example: 


Returns 7 
Returns 10 











. 


2 vet 


ep 


on” 





The EREAKPT program is a LEX fil whidh provides breakpoint capability for debugging BASIC 
programs. When BREAEFT is in t ¢ HP-71, three new keywords become available: EF EAE, 
UHEREAK, and BLIST. These keywo: Is allow setting, clearing, and listing of breakpoints in BASIC 
program execution. Setting a breakpoint n this manner is equivalent to inserting a FALSE statement at 


the beginning of a program line. 


The BEEAKFT program works by inter: :pting a poll each time a statement is executed. This will stow 
down an application program significanth | and bo should be used with caution in time sensitive situalians. 


BLIST 


Lists all breakpoints in order of entr . 


EREARK <tine number> [<line nu nber> .. 


2 } 


Sets breakpoints at specified line nur .bers. Any number of breakpoints 


may be specified, separated by comni-s. 


UNEREAK 


Clears all breakpoints, 


a gowten'e 
iSaeiee eee, 


epee 


i a 


2s ee ee 
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The FORTH/Assembler ROM provides a set of keywords that permit keyboard entries to originate from 
devices on the HP-iL loop. These keywords are ESCAFE, KEVEQARO Ts, and 
RESET ESCAPE. The KEVBORFEO [5 statement assigns one HP-IL device to act as a remote 
keyboard for the HP-7t. The ESCA E atatement specifies that a particular one-character escape 
sequence received by the HP-71 fromth: current KEVEQARD I device will be replaced by an HP 74 
key code. This permits mapping of terminal-specific features to the HP-71 keyboard The 
FESET ESCAFE statement clears out ny existing mapping aptcified by ESUCAFE statements. Refer to 
the FORTH/Assembler ROM Owner's Ma ual for a detailed discussion of these keywords. 


19.1 KEYBOARD IS With HP -150 


The following routine is useful when con! guring an HP-150 as a remote keyboard and display device 
f 

18 TF FOS VERS, “KBOS "=A HEN BEEF 14548,.4% eB CKISF “Heed FEVE 

GARD j file!" ® EHO 











2a TAFE &@ FEAL A OIM EF @ ES=CHREC STS 

oI WT's CLEAR tFkS23. @ REMOTE @ OUTPUT 8RS2ic "SAE Ses 
3" © LOCAL 

44 4 * PR IF) S29 THEM 'RSSS2SHT' ELSE AEE ACTF: 





SPOLLE "ree 


"OM 105 © ESCAFL “H",185 @ ESCAFE "R",105 ! br 
"i", $83 ' Back : 
wom ay @ ESCAFE “C",42 @ ESCAPE “AS, 30 & ESCARE "RR" 





ape 
dT 
Se 





e",.45 2 ESCRFE "Q9",59 © ESCAPE “r", 150 © ESCAFE &s 
"5189 0 ATTH, FETCH, Cre 2. User 7 
94 ESCAPE "t",162 % ESCAPE “u",159 @ ESCRFE "uo", 60 © ESC RIFE 
w",y1l6S | Tops <<< 92>. Botton 
140 ESCAPE “h", ® ESCAIE “F",46 
"KEK", 107 ! Run, -Line,-Line wh 
ESCAFE "e",92 ! Auto é 
OUTFUT 3A SEFRNSA UkOal sede Attn ‘kon 
DUTFUT tA SES "2 fF 2k@alsdel FETCH : 
OUTPUT tA SESS "R PF Sk Gal adelConnand Stack 
CUTFUT tA SESe"S8AFd¢kKOsiedel User (toggle "SEF 
GQUTPUT 2A SES. "29 SkBalidel = Top : "REFS. 
QUTPUT tA SES "24 6k Bal odel F are Left TRESE 3 
OUTPUT <A SEF PkOaiedzlL Far Right. BERE My 
OUTPUT 3A SEF el Bottom wee EE Mats 
OUTPUT tA SER AR" SE ER" jE"s | Set strap to cmt etc ape 
sequences, User keys 


no 
=) 


e ESCAPE “WI", 1a 2 EEF APE 


















KEYBOARD IS - Using A Terminal 





KEYBOARD IS ~ Using A Terminal 


19.3 Disabling KEYBOARD IS 












































Zin ic OFF @ SFLAG - 
roa QLSRLAY TS TRS © KEVYEOQARO DPS sFSe32 ¢ *® 
19.2 KEYBOARD IS With HP-2648 Terminal Use the following routine when turning off the remote keyboard: 
1a DISFLAY IS tOFSFLAY @ EE ‘BOARD IS * @ RESET ESCAFE : 
2a CELAG -21 @ RESET HPIL _ 
The following routine will configure an HP-2648 terminal as the remote keyboard. The terminal cursor % 
keys are active, as are the insert/delete character keys. Pressing ESC twice gives the [ATTN] keystroke. 
{CTLIBACKSPACE] gives the [BACK] character. (f 1] is fATTNL (£2) is FETCH, (£3) is the command 
stack, (f4] is the user mode ID COMMAND SJis gl), (£61 is al<i, tf 71 is gf?) and (£8) is gly} 
The (CLEAR DSPLY] key also gives the -LIHE command. The ‘home’ key recalls the first fine of the 
current workfile, and (CTL ‘home’ key recalls the last line of the current workfile. 
“J ESCAPE © FEAL A ® GIN EF & ER=CHR#CSTS 
SMT: CLEAR seSesc & FEMUTE & SMITRUT sRS2S2 5" SE9;5E 
oes mR TF W8SS THEN SRSSREHT' ELSE A=GEVACOR 
no. 1aS @ ESCAFE “N", 185 » ESCHRE "RY, 185 ¢ I/r,le 
F exit ingzerts 
60 ESCHPE "i", 183 1 Back 
eu) ESCAPE CHRE G27 643 1 Attn en” 
TW ESCAPE “Oar @ ESCAPE "CO". 45 B ESCAPE "A", 55 @ ESCAPE “B , 
"S52 0 Lett Piatt ollp, oun 
ao ESCAFE “"pls43 @ ESCRFE "q".59 ® ESCARE “r", 15a & ESCAPE e 
a", 109 ! Attn, FETCH, Crdz, User 
an ERCAPE "tb", bes B ARE “o®,159 @ ESCAPE "e's 169 @ ESCAFE 
“wa des UO Tapes : Boot tone 
“H's be APE "F".163 ! Tap, Botton 
“E",102 8 ESCAPE “2".46 & ESCHRE "UO", 187 @ ESCAPE 
a7! Set. Runs Lines, Line 
Len ESCAPE Figt cc 
p20 OMITROT s SEF LE Hash os apes 
14 TEU bok ELS 4 i 
10 CIT RUT Hi 
teu CUT RUT # 
Loy OUTPUT ihe 
pa OUTPUT ne 
La OITRUT ¢ uk 
San OUTPUT : v 
ye CHIT RUT | 
yerures 4 : vie 
2a LC OFF @ ye 
fay OLSPLAY De 
cr” 


ee 
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| 20 | 


Graphics 


The LCD display of the HP-71 may be us d to depict graphic images using the GCF statement. The 
contents of the LCD display may be read 1. a string with the GOISFS statement. The HP-7! Owner's 
Manual (p. 137) has a discussion of these s ttements. Several tools are provided to assist in preparation of 
a gtaphica image. They are a graphics ¢ ‘itor, a keyword FATTERHS, and the keywords ZEIT and 
ZE1T#, found in the STRINGLX file (see he chapter String Functions.) 


20.1 GEDIT - Graphics Editor 


The GEQIT program provides a facility for interactiviv creating a graphica image on the LCD. To 
create an image, run GECMIT, and use re. cfined keys to move the cursor and sct or clear points The 
following keys are active when GECIIT is unning: 


{.] Turn pixel on 


(sPc}] Turn pixel of f 


left 





{<) Move cursor one pixe 

{>} Move cursor one pixe right 

{*] Move cursor one pixe up 

(v] Move cursor one pixe down 

{c] Copy column, eshiftin., display to right 

[0] Delete column, ehift ng display to left, 

{s] Goto x,y location in display 

{1} Insert blank column 

[t] Oleplay current loca: lon 3 

{P) Print graphic image «nn ThinkJet printer 
vio (R} Read image from file ' 
wb ; [s} Save image to file (.s 132 character stfing) = <i. 
Ved : (a]} Exit program pid, , ‘fs eee 
ipa, ' 3 % : 
‘if f ‘ ‘ ‘# es 
o Po 


on ce 


wwf 






















































Graphics Graphics 
1) ' GEGIT - Graphics Editar ¢Pequires HP-TL keguords >? 
ou CALL GEGIT @ SUB GEOTT 20.2 PATTERNS 
a4 THM AFCPSS), 690152) 
40 O1DSF @ AP GOSS & Hab & VSB RB FRSSFLAG6 OH? @ FS=FLAGES> 
Ss GOLSF AE . 
ev a=" " & CFLAGS The FAT TERHA keyword returns a char cter string which contains the GOTSP4 equivalent of an asen 
Oo ZHFLAGCO ETT OU AEE Reh) vss string in the display. The resulting string \ ill contain 6 bytes for each character in the string argument 
ae BrsAr © EFC: JECHR ECB IHEOR HUME BECR SAT, 29> 
20 OM TIMER #1..3 GOSUE 230 
100 PEebevys @ TF be="" THEN 1iG 
110 PeShOte#. SRIOCLORG UPRCECR ECL, L)eo+) SYNTAX: FATTERIES® string exp: ssion> 
Led CORE FO UTED Sy PS, ES 14, Py SE, SAE HEN, 236, 249, 268, 230 
2380 EXAMPLE: GOISF FATTERNES' bes" 
130 HEC fJe,2vos & GOTO 3a AL=FATTERHEC "H Dbot% 
{40 AEC: {Po ,BLHCMEC 2° oes @ GOTO Se 
150 IF e="Ha7" “41 0% GOTa Sa 
fen TF kee" ean" v41 2 GOTO Se 
7 TF era" eS" 289 2 GOTO Sa : 20.3 Example 
fa TF bee" eo" 12) 28 GOTO S@ ELSE 58 
a OFeP "SAVE? ® PRINT 41,0 ;AF © GOTO 56 
OSE “RENE: ® RERO #1,43;88 &@ GOTO 39 
HPSAPCL-t 5 SB 131) @ GOTO SO 
APSA CL A-d $0841 20H & e GOTO Se A graphic image may be frozen on the feft of the display with the MIMGM statement Some 
nasAscl 1 de: ges 34) % GOTO Se applications may find this useful when im lementing a user interface. In this example, a trai is created 
yoOTSR Sassy" e& ww in TS, placed in the display, and frozen in | iace for a prompt 
IF KEVOOM 
Mente LMT: 13294) @ YEMODCINTCY-19,4) @ GOTO 50 
FRIHT CHR ECS "ShS2G"3 AS & GOTH Sa 15 CALL GEX @ SUB GEX @ OF IT0H BRE 1 
AeFLAG S,tOT FLAGS S >» 2A DIM T#C18) @ FOR T=1 Th 18 8 FEAO T ®@ TE#CLJSCHRE TT) & MET of 
IF ka#"" THEH FETURH Sh DATA 1,8,66.826,194,66, 3, 200,20 be Fee rss SHE, SOM, Lo ee bs 


[IF A THEH GOISF Bf ELSE GOTSP AE . »4,0 
wot FE TUR AGO1SE TH & WINDON 4 @ LaPUT "Gestinat ion "3 Ot 


[HEWITT “Files “GFE HWINOOH 1 @ OISP "Going oo "FOF & ENO SUB 
40 TF Fge"" THEM FOr PB GoTo Se : 
SSO ASST aL TOF & RETURH 

Ia CELA Oe CSF "Gone" @ FS=FLAGCO,FE? & F9=FLAG(S,F3) & 





WN fe 
Bos 





& 


Mtg ne se 


EMO SUE Big 4 
ed sf a yh 
V4 in a 
ao 4. : 
ce a o 
f 5 ; : ray 


ol eee 
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Forth Utilities 





The following is a description of a collec ion of utilities devel 5 
debugging. There are five categories of v ords: | " 


< ‘Gu th 
¢ Decompiling: UM: and FS... ‘hese words are used; 3 producéa map of a colon-compiled 
dictionary entry, and to decompile the contents of the ret mi atack. 


e Single-stepping: EF, EREAK, OWT, FENTSH, di P, and Yor. These words are used to 
interrupt execution of a FORTH s. condary word and sing! ep each’: ‘yord or group of words 










e Memory examination: GUMP, OMF+, LIST, ROOM 


: 
Se, and 4! HO ‘These words are used 
to examine the contents of memor 


cw 
“} 
e Output; .C-#, 0-0, O-F, O-!, senevan Ciena THT, and TF. These words are 
used to assign the display, caues di ‘ing execution, and cont! ‘ure the Printer ‘ 


Ki 


e Miscellaneous: EASE *, TIME, . ud TINED. 
f 


21.1 Loading FORTH Utility Files 5 


There are three FORTH utility files F HUTILA, FTHUTIGF, and FTHUT ILE ff you have not 
established a FORTHE VAM file, use the F HUTILC file as follows 







COPY FTHUTILCE TAFE) TO Fol THRAM 


If you have already established FORTH ¢ ‘AM, the new words 3 4 , 
from within the FORTH environment: We 








"FTHUTILAL: TAPE)” ASSEMBLE 


‘macht 


“FTHUTILF(: TAPE}" LOADF! 4 


The FTHUTILA file must be ami 
FTHUTILF file. ot 





Forth Uliities 


21.2 Decompiling 


UN: ae 


Decompile the word following U1? in the input stream. Used in the form: 


WHS = <word name> 

UES produces a complete map of a coton-compiled dictionary entry, showing the contents of the word 
header, and an addressed fist of the words comprising the decompiled word's definition. For example, 
execution of 

Viths 


HUE produces output like thas: 


ble ft 

LF 
HF is 
theres 


RODE ~ 


iy ce 


SLA 





‘The first column of numbers show the address of each element of the word; the second column show the 
content of the address. After the CFA, the content is the CFF of a FORTH word, which is also identified 
by ats name. From the above we can read of f that the definition of AOOR- iss AQOR- 3- 2 5 


Ihe rate al which WHE displays successive words in a definition is controlled by the FALISELM variable. 


MET? dues not necessarily give a definition listing exactly the same as the original definition, because of 
the nature of certain common FORTH words. BEGIN and THEM, for example, have no compiled 
representations LEH does allow you to determine the location of these structures by displaying the 
dlectmation address for all branches. An TF — word, for example, is displayed like this: 


TF ot xxxax 
1 


2 ts . 
where vrrax is the address of the word that will be executed next if the flag tested by IF is false. 


A second class of words for which the decompilation does not match the original definition exactly 
consists of words that are compiled as multiple words. Examples are IF and LEAVE. (iF ia compiled as 
OVER = TE GRGE; LEAVE is compiled as > RP COROF ELSE (the ELSE's here are just 
unconditional branches). 


Finally, LHL: does not recognize the headerless words used in the FORTH ROM dictionary, which may 
cause problems if you attempt to decompile « ROM word. In most cases, WHE will just display Unk noun 
for a word it doesn't know. If the unknown word advances the instruction pointer when execuled, Une 
wall get out of synch and produce garbage or hang up. The headerless words are listed in the FORTH IMS. 


€ 


© 
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Os ge ee ae a 


¢ 


an 


Decompiles the contents of the return sta k. FS. lists each item on the return stack, in botlam-lo-fop 
order, each followed by the name of the w ird identified by the address. The lowest two levels, which refer 
to the outer interpreter, are omitted. 2 


da 


21.3 Single Stepping 





The words TEP, S21, BREAK, E , COT, and FIHISH enable you fo interrupt a FORTH 
secondary word at any poent in its execut a and single step each successive word or group Of words in tts 
definition. A separate return-slack and i struction pointer environment is set up tor the word, so that 
you can carry out various FORTH operats ins between steps, and 90 that return-stack operations fo buted 
in the word will not confuse the normal cuter interpreter. The interrupted word uses the normal data 
stack, so that any operations you perform  elween steps musl leave the stack in the state expected by the 
next step. 





Interrupted execution of a word ; 4 is i. itiated by either STEP XXX or <acddressy FFE FIR NY 
Both methods set up the interrupt environ: ient, then begin executing XXX. STEP exccutes onty the fast 
word (after the "= "bin XXX's definition BREE. executes XXX up to <addrese>, or to the final Hears 
whichever is encountered Sirst. 


Execution of an interrupted word is resum d by the words ST, CONT, and FINES 54 executes the 
next word in the definition; COMT resum s continuous execution, stopping at the next encounter of the 
breakpoint address (which can be reset vith EF), or at the end of the word. PUI HH clears any 
breakpoint setting and completes execution. of the word through the final" 3". 


Each time a word is interrupted, a user-s lectable vectored word is executed The FH of the vectored 
ae iS 


word is stored in the variable SSTOUT. rhe default SSTOUT word is &., which displays the stach in 
) with a square brackets £ ). 








bottom-to-top ordes (reverse of . = 





Single stepping proceeds through a word's. efinition at the level of the definition - each secondary im the 
definition is executed entirely as a single .tep. SST does not wadder up and down through the various 
levels of secondaries in a definition. BRE! F. and CAM T will stop at a breakpoint address set at any level, 
but a subsequent = <T will halt back .¢ the top-level of th® original word's definition You can 
effectively single-step through lower leve s by setting break points! in the low level definition and using 





CONT. . L Ae 

ae i i 
The single-step words use two user variabl 4 during their executioh, #2FB7F is used to pass the address 
of the start of the single step environmen: to the single step primitives. #2F BEA, which is alse used by 
the colon compiler, is used to hold the c. rent breakpoint address, FORTH words thal are tested wit, 





EREAE or SST must not disturb the cont -nts of these variablen Furthermore, they must not disturb the! 
return stack pointer stored in FF, nor 1.ove the return stack itself. In pitticular, do nor EF EH of 
SET words containing GROW or SHRINE at any level. . ” ft | 


i. t 
r 


=] 





Set a breakpoint at asldress n, for use with ONT. 


© ' € 


= oy ot 





NN ee ee ee ee ee eee elle 





eC —. 
( e. | ( ‘ ( ( \ @ oi ea, a 
| 
: 
Forth Utihties 7 
‘ 
BREAK ' a 


Used in the form <addr> ER ERE <wordname>. 


Create a single step environment fot the word named next, then execute the word, stopping when the 
instruction pointer reaches the addréss on the top of the data stack. The addresses for BREAK can be 
obtained using UH on the word to be single stepped. EFEAE can stop at any word address in a 
definition after the first address following the ! (use STEF if you want to stop on the first address) and 
before the final $ (stopping on the ¢ is the same as executing the full word). 


] 

i 
Resume execution of a word that was interrupted with STEF, BREAK, or SST. Execute up to the 
breakpoint address, or to the final“ $ ", whichever comes first. 


Complete execution of an interrupted word through the final" 3 
i 


SST : > 


Display the name of the word identified by the next address in the current single-step word's definition, 


then execute the named word. Then execute the word whose CFA is stored in the variable SSTQUT. 
The default “3 TUUT word is S. which displays the stack in bottom-to-top order (reverse of « $) 


Used in the form STEF <wordname>. 


; : ry = ; : a 
Create a single step environment for the word named neat, then S5T the first word following the = in 
the word's definition. “ht ‘ +. 


! 
re a: 


op rays: 
a : abe ; 
7s : rite 


eo 


~ 


» 


‘@ Cy or iS fee 
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21.4 Memory Examination 


[pump - . addr n> | 


Display n nibbles, starting at addr, as AS: II hex charade 7 
. ', 


[pume+ ‘ ; addr n —» addren | 
iB ee 


Disptay n nibbles, starting at addr, as AS‘ If hex characters. Leave the neat address (addr en) on the stack. 


1 


Display a list of user-dictionary words, st irting with the most recently created. 


[Room? ‘ ~ | 


Display the number of nibbles available 1, the FORTHEAM file. 


—— 2 

Display the data stack contents, in bottor first, top last order (opposite of . S ), inside [ | brackets. 

[sow “gy 
x eC 


Display the address and contents of n co secutive S-nibble cells, s 
on the stack. Display time is controlled b PAUSELEN. rode 




















—» addré5n 

















Mes 





o“~! 
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21.5 Output 


pe 
Faccute “HCPL DS 4" BATES 

So 
Execute “DDR DS orcriine” Bre 
[cae RET 


Feente “BEGCRPLAY TS PRDUTER BAST 








Peete “QUSFLAY Ts FX 
[oeLavoo > | 
eecute "KELAY W.G" BAS ELE 


Pause for the number of milliseconds stored in the variable FHUSELEM. (Does an empty [1 LOWF). 
Intended for use with outputs to the HP-71 display. 





[Pauseven —> addr | 


Return the address of the variable containing the delay in milliseconds produced by FAUSE, 


[print 


Used in the form FRET  vauis, whi 
directed to the printers GFR TUTEES t 


after aaexa has finished exccution, FR: 


FREQ ona printer mstead of the display 


[ski 


Send El 2:1 db tothe SER THTER & 


21.6 Miscellaneous 





BASE 





Display the current base in decimal. 


[time 


Pushes the current BP-7) clock time or 
midnight, rounded to the nearest .OF seco 


[tmeD 


Used in the form TIMEQ) axxax, which 
nearest .O1 second). For timing Floating | 
input, and the T- and Z- registers on out 


Dascth OE tobgtyes 


h causes the display output of the FORTH word veces to be 
) The original fOlSPb A 1% device as restored automatialty 
HT OS PEG, for exanple, will print the decompuation of 


set perforation skip mode 





z | 
to the floating point stack. ‘Time ts expressed ia seconds fron 
id. 


é 
» 


lisplays the execution’ time of the word wane in seconds te the 
‘int words, be aware that TUMEC will change the Poreyistea on 
ut. 








